|
AutoCAD VBA : Sweeping mit VBA
dechgo am 26.03.2010 um 12:53 Uhr (0)
Hallo zusammen,ich versuche gerade mittels VBA ein Sweeping im AutoCAD zu erstellen:Ich habe mit dem Codebeispiel aus der Hilfe herumgespielt und habe nun folgendes Problem.Anstelle eines Splines möchte ich das Objekt an einer Polylinie sweepen. Über VBA funktioniert dies aber nicht, ich bekomme als Fehlermeldung: "Allgemeiner Modellierungsfehler"Mache ich den Vorgang von Hand direkt in AutoCAD funktioniert es einwadnfrei.In der Hilfe zu "AddExtrudeSolidAlongPath" steht, dass als Pfad eine Polylinie zuläss ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : VBA Block in Block einfügen
dechgo am 24.04.2009 um 10:23 Uhr (0)
Hallo zusammen,ich habe folgendes Problem:Ich habe eine Zeichnung in der ein Block (Name: Kreuz) vorhanden ist. Dieser Block soll an verschiedenen Stellen eingefügt werden und die eingefügten Blöcke sollen zuammen in einem neuen Block (Name: Kreuz_Gruppe) gespeichert werden.Das einfügen der Blöcke bekomme ich hin. Allerdings weiss ich nicht wie ich dem neuen Block die eingefügten Blöcke zuweise, da es keine .addBlock -Methode gibt.Hier mein Code zum einfügen:Sub Block_Positionieren()Dim objacadDim anz, ans ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : VBA Block in Block einfügen
dechgo am 27.04.2009 um 08:04 Uhr (0)
Hallo Alfred,bin erst jetzt dazu gekommen es auszuprobieren....vielen Dank funktioniert genau so wie ich das wollte.Durch die VBA Beispiele von AutoCAD hatte ich nach .addBlock gesucht..InsertBlock muss ich echt übersehen haben. Hätte bestimmt noch ewig ausprobiert. Also nochmals vielen DankGruss Dennis
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : In Excel vorhandene Blöcke auflisten
dechgo am 27.04.2009 um 12:21 Uhr (0)
also wenn es dir nur um die Namen in der aktuellen Zeichnung geht kannst du folgendes machen:Sub test() Dim objacad As AutoCAD.AcadDocument Dim adBlock As AcadBlock Dim adBlockList As String Set objacad = AutoCAD.ActiveDocument For Each adBlock In objacad.Blocks adBlockList = adBlockList + vbCrLf + adBlock.Name Next adBlock MsgBox adBlockListEnd SubAusgabe ist hier wie bei deinem Bsp in der MsgBox. Der Code ist so geschrieben, dass er unter Excel gestartet wird....Nur der Verweiss auf AutoCAD Objekte mus ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Sweeping mit VBA
dechgo am 26.03.2010 um 14:00 Uhr (0)
Hallo Alfred,unglaublich liegt anscheindend wirklich daran.Habe nun aus der Polylinie eine 3dPolylinie gemacht und auf die xz-ebene gelegt und dann funktioniert es tatsächlich.Finde ich sehr komisch, da im AutoCAD direkt sowas nicht berücksichtigt werden muss...Viele Dank für die Hilfe Alfred...Gruss Dennis
|
| In das Form AutoCAD VBA wechseln |
